home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 February / Macworld (2000-02).dmg / Games World / Hot demos! / Starbound II / AI agents / Gypsum 1.00 / Gypsum 1.00.rsrc / ss$t_128 < prev    next >
Text File  |  1999-10-30  |  595b  |  26 lines
  1. situation start_game
  2. vars
  3.    w_spending : integer;
  4.    s_spending : integer; 
  5.    m_spending : integer; 
  6.    d_spending : integer;
  7.    tech_min : integer;
  8.    aggression : integer; 
  9.    fleet_size : integer;
  10. begin
  11.    // At the beginning of the game we determine how we will divide the spending
  12.    w_spending := Random(40) + 20;
  13.    s_spending := Random(40) + 20;
  14.    m_spending := Random(40) + 20;
  15.    d_spending := Random(40) + 20;
  16.   // Now we decide the minimum tech before we start building ships
  17.    tech_min := Random(3) + 1;
  18.    fleet_size := Random(4) + 2;
  19.    aggression := Random(5) + 5;
  20. end;
  21.  
  22.  
  23.  
  24.  
  25.  
  26.